home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / desq5x.zip / DESQ5X.PAS < prev    next >
Pascal/Delphi Source File  |  1993-01-04  |  2KB  |  45 lines
  1. { =========================================================================== }
  2. { DESQ5X.pas - Unit to interface DESQview with TP 5.0       ver 5.X, 01-01-89 }
  3. {                                                                             }
  4. { These are the routines that are published by Quarterdeck and have been      }
  5. { adapted for use in Turbo Pascal.  Only 96 bytes of code.                    }
  6. {  by  James H. LeMay, CIS 76011,217                                          }
  7. {  for Eagle Performance Software                                             }
  8. {      P.O. Box 122237                                                        }
  9. {      Ft. Worth, TX  76121-2237                                              }
  10. {                                                                             }
  11. { Version 1.0 (06-05-88)                                                      }
  12. {  - Initial release                                                          }
  13. { Version 4.2 (10-01-88)                                                      }
  14. {  - Made In_DV a global variable with initialization to FALSE                }
  15. {  - Revised DESQqwik.pas for QWIK42.TPU                                      }
  16. { Version 5.X (01-01-89)                                                      }
  17. {  - Revised directives for TP5.                                              }
  18. { =========================================================================== }
  19.  
  20. {$A-,B-,D-,E-,F-,I-,L-,N-,O-,R-,S-,V-}
  21.  
  22. UNIT DESQ;
  23.  
  24. INTERFACE
  25.  
  26. const
  27.   In_DV: boolean = false;
  28.  
  29. function  DV_Get_Version: word;
  30. function  DV_Get_Video_Buffer (VideoSeg: word): word;
  31. procedure DV_Pause;
  32. procedure DV_Begin_Critical;
  33. procedure DV_End_Critical;
  34.  
  35. IMPLEMENTATION
  36.  
  37. {$L DESQ5X.obj }
  38. function  DV_Get_Version;      external;
  39. function  DV_Get_Video_Buffer; external;
  40. procedure DV_Pause;            external;
  41. procedure DV_Begin_Critical;   external;
  42. procedure DV_End_Critical;     external;
  43.  
  44. END.
  45.